10 POKE53280,0:POKE53281,0:PRINTCHR$(14)
20 PRINT"[147][158]   [211] [213] [208] [197] [210]   [205] [207] [204] [197] ([212]IMES 2)"
30 PRINT"[212]HIS [213]LTRAGEM IS ACTUALLY [212][215][207] IN ONE."
40 PRINT"[212]HE [205]AIN [211]UPER [205]OLE PROGRAM AND THE"
50 PRINT"[205]OLE [204]EVELMAKER PROGRAM. [195]HANGES ARE:"
60 PRINT"1) [205]AIN [208]ROGRAM, [213]NLIMITED [205]OLES."
70 PRINT"2) [205]AIN [208]ROGRAM, [210]ESTORES TO NORMAL."
71 PRINT"3) [204]EVELMAKER, [211]AVES [204]EVELS PROPERLY."
72 PRINT"4) [204]EVELMAKER, [210]ESTORES TO NORMAL."
73 PRINT"    ([211]EE [212]EXT [198]ILE FOR [196]ETAILS)"
100 PRINT"[205]AKE SURE THAT THE [215]RITE-[208]ROTECT TAB"
110 PRINT"IS NOT COVERED ON THE DISK."
130 PRINT"[212]O MAKE THE CHANGES, [201]NSERT A [195][207][208][217] OF"
140 PRINT"[204]OADSTAR [201]SSUE #131 [211]IDE 3 INTO"
150 PRINT"[196]RIVE #8 AND [211]ELECT 1, 2, 3, OR 4."
152 PRINT"[193]FTER SELECTING, [196]O [206][207][212] TOUCH THE"
154 PRINT"KEYBOARD OR OPEN THE DISK DRIVE DOOR"
156 PRINT"UNTIL THE WHITE [195]URSOR APPEARS!!!!!!"
160 GETA$:IFA$=""THEN160
165 IFA$="1"THEN180
170 IFA$="2"THEN400
171 IFA$="3"THEN500
172 IFA$="4"THEN600
175 GOTO160
180 Q$=CHR$(34):F$="SUPER MOLE"
190 PRINT"[147][144]LOAD"Q$F$Q$",8"
200 PRINT"1207 F[207]DE=.TO1999:N[197]:LI=LI+2-LL"
250 PRINT"OPEN15,8,15,"Q$"S0:"F$Q$":CLOSE15:SAVE"Q$F$Q$",8"
260 PRINT"POKE646,1
270 [153]""
280 [129]I[178]631[164]640:[151]I,13:[130]:[151]198,10
290 [162]:[128]
400 Q$[178][199](34):F$[178]"SUPER MOLE"
410 [153]"LOADSTOPLOAD"Q$F$Q$",8"
420 [153]"1207 F(null)DE=.TO1999:NVAL:LI=LI+1-LL"
430 [153]"OPEN15,8,15,"Q$"S0:"F$Q$":CLOSE15:SAVE"Q$F$Q$",8"
440 [153]"POKE646,1
450 PRINT""
460 FORI=631TO640:POKEI,13:NEXT:POKE198,10
470 NEW:END
500 Q$=CHR$(34):F$="MOLE LVLMAKER"
510 PRINT"[147][144]LOAD"Q$F$Q$",8"
520 PRINT"105 S[217]49152:O[208]9,8,1,"Q$"0:LEV"Q$"+LV$:PRINT#9,C[200](0);C[200](41);"
525 PRINT"100 O[208]15,8,15,"Q$"S0:LEV"Q$"+LV$:CLOSE15"
530 PRINT"OPEN15,8,15,"Q$"S0:"F$Q$":CLOSE15:SAVE"Q$F$Q$",8"
540 PRINT"POKE646,1
550 [153]""
560 [129]I[178]631[164]640:[151]I,13:[130]:[151]198,10
570 [162]:[128]
600 Q$[178][199](34):F$[178]"MOLE LVLMAKER"
610 [153]"LOADSTOPLOAD"Q$F$Q$",8"
620 [153]"100 S(null)49152:O(null)9,8,1,"Q$"0:LEV"Q$"+LV$:PRINT#9,CLEFT$(0);CLEFT$(41);"Q$
625 [153]"105"
630 [153]"OPEN15,8,15,"Q$"S0:"F$Q$":CLOSE15:SAVE"Q$F$Q$",8"
640 [153]"POKE646,1
650 PRINT""
660 FORI=631TO640:POKEI,13:NEXT:POKE198,10
670 NEW:END